home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].zip / MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].adf / Programs / asciitable.bas < prev    next >
BASIC Source File  |  1989-12-27  |  2KB  |  78 lines
  1. 'ASCII TABLE DISPLAY PROGRAM
  2. 'S.McLachlan, Jul 89
  3.  
  4. WINDOW 1,"ASCII - S.McLachlan",(0,0)-(230,146),6
  5. DIM c$(255)
  6. LINE (0,0)-(230,146),3,BF
  7. GOSUB init
  8. scr:
  9.    COLOR 2,3
  10.    LOCATE 1,1:PRINT "  DEC HEX CHAR  DEC HEX CHAR"
  11.    COLOR 0,1
  12.    FOR l%= 0 TO 15
  13.       LOCATE l%+2,2
  14.          IF (start+l%)<100 THEN PRINT " ";
  15.          IF (start+l%)<10 THEN PRINT " ";
  16.          PRINT start+l%
  17.       LOCATE l%+2,8
  18.          h$=HEX$(start+l%):IF (start+l%)<16 THEN h$="0"+h$
  19.          PRINT h$
  20.       LOCATE l%+2,11
  21.          PRINT c$(start+l%)
  22.       LOCATE l%+2,16
  23.          IF (start+l%+16)<100 THEN PRINT " ";
  24.          IF (start +l%+16)<10 THEN PRINT " ";
  25.          PRINT start+l%+16
  26.       LOCATE l%+2,22
  27.          h$=HEX$(start+l%+16):IF (start+l%+16)<16 THEN h$="0"+h$
  28.          PRINT h$
  29.       LOCATE l%+2,25
  30.          PRINT c$(start+l%+16);
  31.    NEXT
  32.  
  33. waitloop:
  34.    if inkey$<>"" goto waitloop   
  35.    SLEEP
  36.    a$=INKEY$
  37.    if a$=chr$(27) then clear:end
  38.    IF a$= CHR$(28) THEN
  39.        ch=1 
  40.       start=start-32
  41.       IF start<0 THEN start=0:ch=0
  42.    END IF
  43.    IF a$=CHR$(29) THEN
  44.        ch=1
  45.        start=start+32
  46.        IF start>224 THEN start=224:ch=0
  47.    END IF    
  48.    IF ch=1 THEN
  49.    GOTO scr
  50.    ELSE 
  51.    GOTO waitloop     
  52.    end if
  53. init:
  54.    FOR l%=0 TO 31
  55.       READ c$(l%)
  56.    NEXT
  57.    FOR l%=32 TO 128
  58.       c$(l%)=" "+CHR$(l%)+" "   
  59.    NEXT
  60.    FOR l%=129 TO 139
  61.       READ c$(l%)
  62.    NEXT
  63.    FOR l%=140 TO 255
  64.       c$(l%)=" "+CHR$(l%)+" "
  65.    NEXT
  66.    start=0:ch=1
  67.  
  68.    RETURN
  69.  
  70.  
  71. DATA "NUL","SOH","STX","ETX","EOT","ENQ","ACK","BEL","BS ","HT ","LF ","VT ","FF "
  72. DATA "CR ","SO ","SI ","DLE","DC1","DC2","DC3","DC4","NAK","SYN","ETB","CAN"
  73. DATA "EM ","SUB","ESC","CuU","CuD","CuR","CuL"
  74.  
  75. DATA "F1 ","F2 ","F3 ","F4 ","F5 ","F6 ","F7 ","F8 ","F9 ","F10","HLP"
  76.  
  77.  
  78.